home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / clickme.first < prev    next >
Text File  |  1996-10-09  |  21KB  |  694 lines

  1. ; Dies ist das Install-Programm für die Meeting Pearls CD-ROMs.
  2. ; Es ist Copyright (C) 1994-1996 by Angela Schmidt, Neu-Ulm, Germany und
  3. ; darf AUSSCHLIESSLICH in Verbindung mit der Meeting Pearls CD-ROM oder
  4. ; privat benutzt werden. Weitergehende Nutzung, insbesondere Nutzung
  5. ; und Verbreitung auf anderen CD-ROMs, ist NICHT gestattet.
  6. ; Es ist NICHT gestattet, geänderte Versionen dieses Skripts in
  7. ; irgendeiner Art zu verbreiten.
  8. ; Für Sondergenehmigungen setzen Sie sich bitte mit
  9. ;    Angela Schmidt
  10. ;    Klosterweg 28/I501
  11. ;    D-76131 Karlsruhe
  12. ;    Germany
  13. ; in Verbindung.
  14.  
  15. (set osversion (/ (getversion) 65536))
  16. (set volname (expandpath (":")))
  17. (set findpearlsprefs "S:FindPearls.prefs")
  18. (set metaprefs "S:MetaTool.prefs")
  19.  
  20. (onerror
  21.     (run ":C/NessyCloseLib pattern.library")
  22. )
  23. (run "Run :C/NessyOpenLib pattern.library")
  24.  
  25. (set origuserlevel @user-level)
  26.  
  27. (if (AND (= 0 origuserlevel) (exists "ENV:Language"))
  28.     (
  29.         (set nop nop)    ; dummy
  30.     )
  31.     (
  32.         (user 2)
  33.         (set langnum
  34.             (askchoice
  35.                 (prompt "")
  36.                 (help "Please select your favourite language.\n\n" "Bitte wählen Sie ihre bevorzugte Sprache.")
  37.                 (choices
  38.                     "Deutsch"
  39.                     "English"
  40.                 )
  41.                 (default
  42.                     (if (exists "ENV:Language")
  43.                         (if (patmatch (getenv "language") "Deutsch")
  44.                             0
  45.                             (if (patmatch (getenv "language") "English")
  46.                                 1
  47.                                 1
  48.                             )
  49.                         )
  50.                         (if (patmatch @language "Deutsch")
  51.                             0
  52.                             (if (patmatch @language "English")
  53.                                 1
  54.                                 1
  55.                             )
  56.                         )
  57.                     )
  58.                 )
  59.             )
  60.         )
  61.         (user origuserlevel)
  62.     )
  63. )
  64.  
  65.  
  66.  
  67. (if (= langnum 0) (set langstring "Deutsch"))
  68. (if (= langnum 1) (set langstring "English"))
  69.  
  70. (if (not (exists "ENV:Language"))
  71.     (
  72.         (run ("%s%s" "setenv Language " langstring))
  73.     )
  74. )
  75.  
  76.  
  77. ; Hier folgen die Strings, die für die deutsche Übersetzung benötigt
  78. ; werden. Bei Übersetzungen in andere Sprachen einfach den folgenden
  79. ; Block komplett kopieren und die Texte ändern. Die Steuerzeichen
  80. ; sollten unverändert bleiben. Wer irgendwo eine Zeile hinzufügen oder
  81. ; löschen möchte, muß dir Anzahl der "%s" entsprechend anpassen - für
  82. ; jede Zeile steht ein "%s".
  83.  
  84. (if (patmatch langstring "Deutsch")
  85.     (
  86.         (set ja_antwort
  87.             "Ja"
  88.         )
  89.         (set nein_antwort
  90.             "Nein"
  91.         )
  92.         (set warning_old_os
  93.             (
  94.                 "%s%s"
  95.                 "Bitte bringen Sie Ihr Betriebssystem auf den neuesten Stand, denn ansonsten haben Sie mit Problemen zu rechnen! "
  96.                 "Diese CD-ROM setzt mindestens OS 2.04 voraus, um korrekt zu funktionieren."
  97.             )
  98.         )
  99.         (set intro_msg
  100.             ("%s%s%s%s%s"
  101.                 "Willkommen zur Meeting Pearls CD-ROM!\n\n"
  102.                 "Sie sollten dieses Skript vor jeder Benutzung der Meeting Pearls CD-ROM "
  103.                 "starten - in erster Linie, um ein paar Assigns zu aktivieren. Starten Sie hierzu "
  104.                 "das Skript einfach im Novice-Modus. Es werden dann keine dauerhaften Änderungen an Ihrem System vorgenommen.\n\n"
  105.                 "Wenn Sie möchten, können Sie im Expert-Modus auch Ihre bevorzugten Anzeigeprogramme für einige Datentypen einstellen oder alle dauerhaften Änderungen wieder de-installieren."
  106.             )
  107.         )
  108.         (set ask_install
  109.             "Bitte wählen Sie, ob Sie Dinge für die Meeting Pearls CD-ROM installieren oder de-installieren möchten."
  110.         )
  111.         (set ask_install_help
  112.             ("%s%s"
  113.                 "Beim Installieren werden nur dann dauerhafte Änderungen an Ihrem System vorgenommen, wenn Sie zugestimmt haben.\n\n"
  114.                 "Beim De-Installieren werden alle bisher vorgenommenen dauerhaften Änderungen wieder beseitigt."
  115.             )
  116.         )
  117.         (set msg_upper_fs
  118.             ("%s%s%s%s%s%s%s%s"
  119.                 "Ihr Dateisystem ignoriert offenbar die Rockridge-Erweiterungen. Daher bestehen "
  120.                 "alle Dateinamen nur aus Großbuchstaben. Wir empfehlen Ihnen dringend, ein "
  121.                 "Dateisystem zu installieren, das Rockridge-Erweiterungen benutzt, z. B.\n\n"
  122.                 "AmiCDFS2 - auf dieser CD-ROM enthalten\n"
  123.                 "CacheCDFS - Tel. +49 2631 83990\n"
  124.                 "BabelCDROMFS - Tel. +49 201 788778\n"
  125.                 "\nOder bitten Sie den Hersteller Ihres Dateisystems, Rockridge-Support einzubauen. "
  126.                 "Andernfalls bekommen Sie möglicherweise Probleme beim Nachladen von System-Dateien."
  127.             )
  128.         )
  129.         (set install_it
  130.             "Installieren"
  131.         )
  132.         (set de_install_it
  133.             "Entfernen (De-Installieren)"
  134.         )
  135.         (set warn_gokal
  136.             ("%s%s%s%s%s"
  137.                 "WARNUNG\n\n"
  138.                 "Ihr Dateisystem arbeitet gokal, unterscheidet also zwischen den Dateinamen "
  139.                 "\"Test\" und \"test\". Das wird unweigerlich zu Problemen führen. Bitte schalten "
  140.                 "Sie dieses Verhalten aus. Mehr dazu entnehmen Sie bitte der Anleitung zu "
  141.                 "Ihrem CD-ROM-Dateisystem."
  142.             )
  143.         )
  144.         (set ask_accept_problems
  145.             ("%s%s%s%s%s%s"
  146.                 "Ihr Dateisystem arbeitet gokal. Das wird definitiv zu Problemen führen. "
  147.                 "Akzeptieren Sie diese Probleme? Dann wählen Sie \"Probleme akzeptieren\". Andernfalls schalten "
  148.                 "Sie Ihr CD-ROM-Dateisystem JETZT auf ingokale Dateinamen um und wählen Sie DANACH \"NICHT akzeptieren\". "
  149.                 "Dann wird dieser Vorgang wiederholt.\n\n"
  150.                 "Falls sich Ihr Dateisystem nicht umschalten läßt, sollten Sie sich ein anderes "
  151.                 "Dateisystem zulegen, zum Beispiel das auf dieser CD-ROM enthaltene \"AmiCDFS2\"."
  152.             )
  153.         )
  154.         (set ask_accept_problems_help
  155.             ("%s%s%s%s"
  156.                 "Die zu erwartenden Probleme betreffen Dateien, die nicht gefunden werden. "
  157.                 "Es kann sein, daß Icons nicht anklickbar sind, AmigaGuide-Dokumente nicht mehr "
  158.                 "richtig funktionieren, Programme bestimmte Daten nicht mehr nachladen können usw. "
  159.                 "Machen Sie sich auf einiges gefaßt, wenn Sie die Probleme akzeptieren..."
  160.             )
  161.         )
  162.         (set i_accept_problems
  163.             "Probleme akzeptieren"
  164.         )
  165.         (set i_dont_accept_problems
  166.             "NICHT akzeptieren"
  167.         )
  168.         (set has_protection_bits
  169.             ("%s%s%s%s"
  170.                 "Gratuliere!\n\n"
  171.                 "Ihr CD-ROM-Dateisystem unterstützt Amiga-Protection-Bits und Amiga-Datei-Kommentare!\n\n"
  172.                 "Die Meeting Pearls IV ist die ERSTE Public Domain CD-ROM, die dieses Feature aufweist.\n\n"
  173.                 "Mehr Informationen über diesen neuen Rock Ridge Standard finden Sie unter :Pearls/cdrom/MakeCD."
  174.             )
  175.         )
  176.         (set has_no_protection_bits
  177.             ("%s%s%s%s%s"
  178.                 "Ooch, Ihr CD-ROM-Dateisystem unterstützt keine Amiga Protection Bits und Amiga Datei Kommentare.\n\n"
  179.                 "Es gibt nun einen ganz neuen Rock Ridge Standard, der es erlaubt, diese Attribute auf Amiga CD-ROMs zu speichern. "
  180.                 "Lesen Sie mehr darüber unter :Pearls/cdrom/MakeCD.\n\n"
  181.                 "Folgende CD-ROM-Dateisysteme unterstützen diesen Standard momentan:\n"
  182.                 " - AmiCDFS2 ab V2.32"
  183.             )
  184.         )
  185.         (set activate_assigns
  186.             ("%s%s%s%s%s"
  187.                 "Sollen Ihrem System ein paar Assigns hinzugefügt werden, damit einige "
  188.                 "auf der CD installierte Programme direkt startbar werden? (Diese Assigns "
  189.                 "werden nicht in S:user-startup eingefügt - nach dem Booten merken Sie also "
  190.                 "nichts mehr davon.)\n\n"
  191.                 "Empfehlung: Ja"
  192.             )
  193.         )
  194.         (set activate_assigns_help
  195.             ("%s%s"
  196.                 "Ich empfehle Ihnen \"Ja\" - es kann nichts kaputtgehen und spätestens "
  197.                 "nach einem Reset ist alles wieder beim Alten."
  198.             )
  199.         )
  200.         (set game_warnings
  201.             "Wollen Sie vor dem Start von nicht systemkonformen Spielen Warnungen erhalten?"
  202.         )
  203.         (set game_warnings_help
  204.             ("%s%s%s%s"
  205.                 "Vor dem Start von Spielen, die z.B. das Multitasking abschalten, erhalten Sie einen "
  206.                 "Requester mit einer Warnung. Sie können dann entscheiden, ob Sie dieses Spiel "
  207.                 "wirklich starten wollen oder lieber doch nicht.\nWenn Sie hier \"Nein\" wählen, "
  208.                 "erscheinen diese Requester nicht und das Spiel wird sofort gestartet."
  209.             )
  210.         )
  211.         (set these_settings_permanent
  212.             ("%s"
  213.                 "Möchten Sie diese Einstellungen dauerhaft in ENVARC: speichern?"
  214.             )
  215.         )
  216.         (set these_settings_permanent_help
  217.             ("%s%s"
  218.                 "Wenn Sie sie nicht dauerhaft speichern, sind die Einstellungen nach "
  219.                 "einem Reset wieder weg."
  220.             )
  221.         )
  222.         (set choose_viewer
  223.             ("%s%s%s%s"
  224.                 "Möchten Sie nun noch einstellen, welche Programme zum Ansehen von Texten, "
  225.                 "AmigaGuides, Bildern etc. verwendet werden sollen?\n\n"
  226.                 "Es wird dann ein bequemes MUI-Programm gestartet, mit dessen Hilfe Sie die "
  227.                 "Einstellungen vornehmen können."
  228.             )
  229.         )
  230.         (set choose_viewer_help
  231.             ("%s%s%s%s"
  232.                 "Wir haben bereits geeignete Programme für Sie vorausgewählt. Es ist also "
  233.                 "nicht unbedingt nötig, diese selber zu konfigurieren. Falls Sie Power-User "
  234.                 "sind, werden Sie es vielleicht bevorzugen, unser MetaTool von Hand an Ihre persönliche "
  235.                 "Umgebung anzupassen."
  236.             )
  237.         )
  238.         (set April
  239.             "\n\n\n\n\n    April, April!!! ;-Þ"
  240.         )
  241.         (set Heia_1
  242.             "\n\n\n\n\nEs ist nun "
  243.         )
  244.                                                     ;        ( <- Klammer für CEDs-Klammersuche
  245.         (set Heia_2
  246.             " Uhr. Ab in die Heia! :-)"
  247.         )
  248.     )
  249. )
  250. (if (patmatch langstring "English")
  251.     (
  252.         (set ja_antwort
  253.             "Yes"
  254.         )
  255.         (set nein_antwort
  256.             "No"
  257.         )
  258.         (set warning_old_os
  259.             (
  260.                 "%s%s"
  261.                 "Please update the operating system, because otherwise there will be some problems using this CD. "
  262.                 "This CD-ROM requires at least OS 2.04 in order to run correctly."
  263.             )
  264.         )
  265.         (set intro_msg
  266.             ("%s%s%s%s%s"
  267.                 "Welcome at the Meeting Pearls CD-ROM!\n\n"
  268.                 "You should start this script before you use the CD-ROM to "
  269.                 "add some assigns to your system. Therefore, simply run the script in novice mode. "
  270.                 "In this case, no lasting changes will be done to your system.\n\n"
  271.                 "If you want, you also can specify your preferred viewing programs for some data types using the expert mode. Additionally, you might want to de-install things."
  272.             )
  273.         )
  274.         (set ask_install
  275.             "Please choose, if you want to install or de-install things for Meeting Pearls CD-ROM."
  276.         )
  277.         (set ask_install_help
  278.             ("%s%s"
  279.                 "If you want to install things, we'll only do lasting changes to your system, if you agreed before.\n\n"
  280.                 "If you want to de-install things, we'll remove any lasting changes from your system."
  281.             )
  282.         )
  283.         (set msg_upper_fs
  284.             ("%s%s%s%s%s%s%s%s"
  285.                 "Obviously your filesystem ignores rockridge extensions. That's why you will "
  286.                 "only see upper case filenames. We strongly suggest to install a filesystem which "
  287.                 "supports rockridge extensions, for example\n\n"
  288.                 "AmiCDROM - available on this CD-ROM\n"
  289.                 "CacheCDFS - Tel. +49 2631 83990\n"
  290.                 "BabelCDROMFS - Tel. +49 201 788778\n"
  291.                 "\nOr ask the producer of your filesystem to add rockridge support. "
  292.                 "Otherwise you might run into trouble when a program has to load system files."
  293.             )
  294.         )
  295.         (set install_it
  296.             "install"
  297.         )
  298.         (set de_install_it
  299.             "de-install"
  300.         )
  301.         (set warn_gokal
  302.             ("%s%s%s%s%s"
  303.                 "WARNING\n\n"
  304.                 "Your CD-ROM filesystem is casesensitiv, so there is a difference between the filenames "
  305.                 "\"Test\" and \"test\". This will cause trouble. Please change the configuration of "
  306.                 "your CD-ROM filesystem. Refer to the manual of your CD-ROM filesystem in order "
  307.                 "to find out how to perform this."
  308.             )
  309.         )
  310.         (set ask_accept_problems
  311.             ("%s%s%s%s%s%s"
  312.                 "Your filesystem works casesensitivly. This will cause trouble. Do you "
  313.                 "accept these problems? Then select \"Accept problems\". Otherwise switch your "
  314.                 "CD-ROM filesystem NOW to work caseinsensitiv and select \"DON'T accept\" AFTERWARDS. "
  315.                 "Then the last steps will be repeated.\n\n"
  316.                 "If you cannot switch your filesystem you should get a different filesystem, "
  317.                 "for example AmiCDFS2, which is contained on this CD-ROM."
  318.             )
  319.         )
  320.         (set ask_accept_problems_help
  321.             ("%s%s%s%s"
  322.                 "The expected problems are concerning files which won't be found. "
  323.                 "Maybe when you click on some icons, nothing will happen. Maybe, some "
  324.                 "AmigaGuide files won't work as expected, maybe some programs cannot find "
  325.                 "the data they have to load into memory. So be prepared if you accept the problems..."
  326.             )
  327.         )
  328.         (set i_accept_problems
  329.             "Accept problems"
  330.         )
  331.         (set i_dont_accept_problems
  332.             "DON'T accept"
  333.         )
  334.         (set has_protection_bits
  335.             ("%s%s%s%s"
  336.                 "Congratulations!\n\n"
  337.                 "Your CD-ROM filesystem supports Amiga protection bits and Amiga file comments!\n\n"
  338.                 "Meeting Pearls IV is the FIRST public domain CD-ROM, which has this feature.\n\n"
  339.                 "You can find more information about this new Rock Ridge Standard under :Pearls/cdrom/MakeCD."
  340.             )
  341.         )
  342.         (set has_no_protection_bits
  343.             ("%s%s%s%s%s"
  344.                 "Oops, your CD-ROM filesystem does not support Amiga protection bits and Amiga file comments.\n\n"
  345.                 "A new Rock Ridge standard has been developed, which allows to save these file attributes on Amiga CD-ROMs. "
  346.                 "Please refer to :Pearls/cdrom/MakeCD for further information.\n\n"
  347.                 "The following CD-ROM filesystems actually support this standard:\n"
  348.                 " - AmiCDFS2 since V2.32"
  349.             )
  350.         )
  351.         (set activate_assigns
  352.             ("%s%s%s%s%s"
  353.                 "Shall some Assigns be activated, to make some of the programs "
  354.                 "on this CD ready for instant startup? (These Assigns will not be installed "
  355.                 "in the s:user-startup file - so after the next reset everything will be back "
  356.                 "as normal.)\n\n"
  357.                 "Suggestion: Yes"
  358.             )
  359.         )
  360.         (set activate_assigns_help
  361.             ("%s%s"
  362.                 "I suppose the selection of \"Yes\" - nothing will be broken in your system and "
  363.                 "everything returns to its original state after the next reset."
  364.             )
  365.         )
  366.         (set game_warnings
  367.             "Do you want to see warnings before running non system compilant games?"
  368.         )
  369.         (set game_warnings_help
  370.             ("%s%s%s"
  371.                 "Before running games which e.g. disable multi tasking you will get a warning "
  372.                 "requester asking if you really want to start that game.\nIf you choose \"No\" "
  373.                 "these warnings will not apear and the game will be run immediately."
  374.             )
  375.         )
  376.         (set these_settings_permanent
  377.             ("%s"
  378.                 "Do you want to save these settings in ENVARC:?"
  379.             )
  380.         )
  381.         (set these_settings_permanent_help
  382.             ("%s%s"
  383.                 "If you disagree, these settings will be lost "
  384.                 "after a reset."
  385.             )
  386.         )
  387.         (set choose_viewer
  388.             ("%s%s%s%s"
  389.                 "Do you want to choose now your preferred programs to view texts, amigaguides, "
  390.                 "pictures etc.?\n\n"
  391.                 "If you confirm, a MUI program will be started which provides you an "
  392.                 "easy to use interface to change these settings."
  393.             )
  394.         )
  395.         (set choose_viewer_help
  396.             ("%s%s%s%s"
  397.                 "We already have choosen some viewing programs for you. So it is "
  398.                 "not necessary to configure them here. If you are poweruser, you "
  399.                 "possibly will prefer to configure our MetaTool for your personal use "
  400.                 "using any text editor."
  401.             )
  402.         )
  403.         (set April
  404.             "\n\n\n\n\n    I made an April fool of you! ;-Þ"
  405.         )
  406.         (set Heia_1
  407.             "\n\n\n\n\nIt is "
  408.         )
  409.                                                     ;        ( <- Klammer für CEDs-Klammersuche
  410.         (set Heia_2
  411.             " h now. Time to go to bed! :-)"
  412.         )
  413.     )
  414. )
  415.  
  416. (if (< osversion 37)
  417.     (
  418.         (user 2)
  419.         (message
  420.             warning_old_os
  421.         )
  422.         (user origuserlevel)
  423.     )
  424. )
  425.  
  426. (complete 5)
  427.  
  428. (message
  429.     intro_msg
  430. )
  431.  
  432. (complete 10)
  433.  
  434. (set installit
  435.     (askchoice
  436.         (prompt ask_install)
  437.         (choices install_it de_install_it)
  438.         (help ask_install_help)
  439.         (default 0)
  440.     )
  441. )
  442.  
  443. (complete 20)
  444.  
  445. (if (= installit 0)
  446.     (                                ; install it
  447.  
  448.         (user 2)
  449.         (run "List >RAM:MPCLKFIRSTUPPER :SYS/T LFORMAT %n")
  450.         (if (= 5 (run ":C/pgrep Test RAM:MPCLKFIRSTUPPER"))
  451.             (message msg_upper_fs)
  452.         )
  453.         (delete "RAM:MPCLKFIRSTUPPER")
  454.         (user origuserlevel)
  455.  
  456.         (complete 30)
  457.  
  458.         (if (not (exists ":sys/t/test"))
  459.             (
  460.                 (user 2)
  461.                 (message warn_gokal)
  462.                 (user origuserlevel)
  463.  
  464.                 (complete 40)
  465.  
  466.                 (set acceptproblems (exists ":sys/t/test"))
  467.                 (while (= 0 acceptproblems)
  468.                     (if (exists ":sys/t/test")
  469.                         (
  470.                             (set acceptproblems 1)
  471.                         )
  472.                         (
  473.                             (user 2)
  474.                             (set acceptproblems
  475.                                 (askbool
  476.                                     (prompt ask_accept_problems)
  477.                                     (help ask_accept_problems_help)
  478.                                     (choices i_accept_problems i_dont_accept_problems)
  479.                                     (default 0)
  480.                                 )
  481.                             )
  482.                             (user origuserlevel)
  483.                         )
  484.                     )
  485.                 )
  486.             )
  487.         )
  488.  
  489.         (complete 50)
  490.  
  491.         (user 2)
  492.         (run "List >ENV:MPCLKFIRSTPROTBITS :SYS/T LFORMAT %a%c")
  493.         (if (patmatch (getenv "MPCLKFIRSTPROTBITS") "-sp-r--dTest-Kommentar\n")
  494.             (
  495.                 (message has_protection_bits)
  496.             )
  497.             (
  498.                 (message has_no_protection_bits)
  499.             )
  500.         )
  501.         (delete "ENV:MPCLKFIRSTPROTBITS")
  502.         (user origuserlevel)
  503.  
  504.         (complete 60)
  505.  
  506.         (if (NOT (exists "MeetingPearls4:" (noreq)))
  507.             (
  508.                 (set startscript
  509.                     (askbool
  510.                         (prompt activate_assigns)
  511.                         (help activate_assigns_help)
  512.                         (choices ja_antwort nein_antwort)
  513.                         (default 1)
  514.                     )
  515.                 )
  516.             )
  517.         )
  518.  
  519.         (if (= 1 startscript)
  520.             (
  521.                 (execute ":SYS/S/Meeting-Startup")
  522.             )
  523.         )
  524.  
  525.         (complete 70)
  526.  
  527.         (set display_warnings
  528.             (askbool
  529.                 (
  530.                     (prompt game_warnings)
  531.                     (help game_warnings_help)
  532.                     (choices ja_antwort nein_antwort)
  533.                     (default 1)
  534.                 )
  535.             )
  536.         )
  537.         (if (= 0 display_warnings)
  538.             (
  539.                 (if (not (exists "ENV:MeetingPearls"))
  540.                     (
  541.                         (run "makedir ENV:MeetingPearls")
  542.                     )
  543.                 )
  544.                 (if (not (exists "ENV:MeetingPearls/MP4"))
  545.                     (
  546.                         (run "makedir ENV:MeetingPearls/MP4")
  547.                     )
  548.                 )
  549.                 (run ("SetEnv MeetingPearls/MP4/GAME-WARNMASK 0"))
  550.  
  551.                 (complete 85)
  552.  
  553.                 (set make_permanent
  554.                     (askbool
  555.                         (
  556.                             (prompt these_settings_permanent)
  557.                             (help these_settings_permanent_help)
  558.                             (choices ja_antwort nein_antwort)
  559.                             (default 0)
  560.                         )
  561.                     )
  562.                 )
  563.                 (if (= 1 make_permanent)
  564.                     (
  565.                         (if (not (exists "ENVARC:MeetingPearls"))
  566.                             (
  567.                                 (run "makedir ENVARC:MeetingPearls")
  568.                             )
  569.                         )
  570.                         (run "Copy ENV:MeetingPearls/MP4 ENVARC:MeetingPearls/MP4 ALL QUIET")
  571.                     )
  572.                 )
  573.             )
  574.         )
  575.  
  576.         (complete 80)
  577.  
  578.         (set configviewer
  579.             (askbool
  580.                 (prompt choose_viewer)
  581.                 (help choose_viewer_help)
  582.                 (choices ja_antwort nein_antwort)
  583.                 (default 0)
  584.             )
  585.         )
  586.  
  587.         (if (= 1 configviewer)
  588.             (
  589.                 (if (<> 1 startscript)
  590.                     (
  591.                         (execute ":SYS/S/AssignMUI")
  592.                     )
  593.                 )
  594.                 (run ":Contrib/MetaToolPrefs/MetaToolPrefs")
  595.             )
  596.         )
  597.  
  598.         (complete 90)
  599.  
  600.         (if (>= osversion 37)
  601.             (
  602.                 (run ":C/formatdate \"%d%m\" >ENV:MP_CLICKME_FIRST_TMP")
  603.                 (if (patmatch "0104?" (getenv "MP_CLICKME_FIRST_TMP"))
  604.                     (
  605.                         (if (>= osversion 39)
  606.                             (                            ; Kopiere 3.x-Prefs-Dateien
  607.                                 (run "Rename ENV:sys/WBPattern.prefs ENV:sys/MP_old_WBPattern.prefs")
  608.                                 (run "Rename ENV:sys/Pointer.prefs ENV:sys/MP_old_Pointer.prefs")
  609.                                 (run "Rename ENV:sys/palette.prefs ENV:sys/MP_old_palette.prefs")
  610.                                 (run "Rename ENV:sys/Font.prefs ENV:sys/MP_old_Font.prefs")
  611.                                 (run "Copy :SYS/Env/sys/WBPattern.prefs ENV:sys")
  612.                                 (run "Copy :SYS/Env/sys/Pointer.prefs ENV:sys")
  613.                                 (run "Copy :SYS/Env/sys/palette.prefs ENV:sys")
  614.                                 (run "Copy :SYS/Env/sys/Font.prefs ENV:sys")
  615.                             )
  616.                             (                            ; Kopiere 2.x-Prefs-Dateien
  617.                                 (run "Rename ENV:sys/wb.pat ENV:sys/MP_old_wb.pat")
  618.                                 (run "Rename ENV:sys/pointer.ilbm ENV:sys/MP_old_pointer.ilbm")
  619.                                 (run "Rename ENV:sys/palette.ilbm ENV:sys/MP_old_palette.ilbm")
  620.                                 (run "Rename ENV:sys/sysfont.prefs ENV:sys/MP_old_sysfont.prefs")
  621.                                 (run "Copy :SYS/Env/sys/wb.pat ENV:sys")
  622.                                 (run "Copy :SYS/Env/sys/pointer.ilbm ENV:sys")
  623.                                 (run "Copy :SYS/Env/sys/palette.ilbm ENV:sys")
  624.                                 (run "Copy :SYS/Env/sys/sysfont.prefs ENV:sys")
  625.                             )
  626.                         )
  627.                         (set oldlevel @user-level)
  628.                         (user 2)
  629.                         (message April)
  630.                         (user origuserlevel)
  631.                     )
  632.                 )
  633.  
  634.                 (run ":C/formatdate \"%H:%M\" >ENV:MP_CLICKME_FIRST_TMP")
  635.                 (if (patmatch "0[1-6]:#?" (getenv "MP_CLICKME_FIRST_TMP"))
  636.                     (
  637.                         (set oldlevel @user-level)
  638.                         (user 2)
  639.                         (message Heia_1 (substr (getenv "MP_CLICKME_FIRST_TMP") 0 5) Heia_2)
  640.                         (user origuserlevel)
  641.                     )
  642.                 )
  643.                 (delete "ENV:MP_CLICKME_FIRST_TMP")
  644.             )
  645.         )
  646.     )
  647.  
  648.     (                                ; de-install it
  649.         (delete "ENV:METACONFIG")
  650.         (delete "S:FindPearls.prefs")
  651.         (delete "S:MetaTool.prefs")
  652.  
  653.         (complete 50)
  654.  
  655.         (if (>= osversion 37)
  656.             (
  657.                 (run ":C/formatdate \"%d%m\" >ENV:MP_CLICKME_FIRST_TMP")
  658.                 (if (patmatch "0104?" (getenv "MP_CLICKME_FIRST_TMP"))
  659.                     (
  660.                         (if (>= osversion 39)
  661.                             (                            ; Restauriere 3.x-Prefs-Dateien
  662.                                 (run "Copy ENV:sys/MP_old_WBPattern.prefs ENV:sys/WBPattern.prefs")
  663.                                 (run "Copy ENV:sys/MP_old_Pointer.prefs ENV:sys/Pointer.prefs")
  664.                                 (run "Copy ENV:sys/MP_old_palette.prefs ENV:sys/palette.prefs")
  665.                                 (run "Copy ENV:sys/MP_old_Font.prefs ENV:sys/Font.prefs")
  666.                                 (delete "ENV:sys/MP_old_WBPattern.prefs")
  667.                                 (delete "ENV:sys/MP_old_Pointer.prefs")
  668.                                 (delete "ENV:sys/MP_old_palette.prefs")
  669.                                 (delete "ENV:sys/MP_old_Font.prefs")
  670.                             )
  671.                             (                            ; Restauriere 2.x-Prefs-Dateien
  672.                                 (run "Copy ENV:sys/MP_old_wb.pat ENV:sys/wb.pat")
  673.                                 (run "Copy ENV:sys/MP_old_pointer.ilbm ENV:sys/pointer.ilbm")
  674.                                 (run "Copy ENV:sys/MP_old_palette.ilbm ENV:sys/palette.ilbm")
  675.                                 (run "Copy ENV:sys/MP_old_sysfont.prefs ENV:sys/sysfont.prefs")
  676.                                 (delete "ENV:sys/MP_old_wb.pat")
  677.                                 (delete "ENV:sys/MP_old_pointer.ilbm")
  678.                                 (delete "ENV:sys/MP_old_palette.ilbm")
  679.                                 (delete "ENV:sys/MP_old_sysfont.prefs")
  680.                             )
  681.                         )
  682.                     )
  683.                 )
  684.                 (delete "ENV:MP_CLICKME_FIRST_TMP")
  685.             )
  686.         )
  687.     )
  688. )
  689.  
  690. (run ":C/NessyCloseLib pattern.library")
  691. (complete 100)
  692.  
  693. (set @default-dest "")
  694.